home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / DRAW19.ADA < prev    next >
Text File  |  1994-01-11  |  318b  |  38 lines
  1.  
  2. WITH Spider; USE Spider;
  3. PROCEDURE Drawing19 IS
  4.  
  5. PROCEDURE Arm IS
  6. BEGIN 
  7. Black;
  8. Step;
  9. Step;
  10. Step;
  11. Turn;
  12. Turn;
  13. Turn;
  14. Step;
  15. Turn;
  16. Red;
  17. Step;
  18. Turn;
  19. Step;
  20. Turn;
  21. Step;
  22. Step;
  23. Step;
  24. Step;
  25. Step;
  26. Turn;
  27. END Arm;
  28.  
  29. BEGIN
  30. Reset;
  31. Arm;
  32. Arm;
  33. Arm;
  34. Arm;
  35. -- Step; -- Predict what happens with this statement added.
  36. Quit;
  37. END Drawing19;
  38.